<script>on activitylock screenput empty into cd fld "Members"put cd fld attendance into Aput strCount("*",A) into Eventsput strCount("Meeting",A) into Meventsput Events - Mevents into Oeventsset numberFormat to "0"put (Mevents/Events)*100 into MeventsPctput (Oevents/Events)*100 into OeventsPctput "Activity Breakdown" & return & "==================" & return & ¬"TTL Meet MPct Otr OPct" & return & ¬"---- ---- ---- --- ----" & return & ¬Events && " " && Mevents && " " && MeventsPct & "% " && ¬Oevents && " " && OeventsPct & "%" after cd fld "Members"end activityfunction MBSummarylock screengo first cd of bg "Merit Badges"repeat for the number of cds in bg "merit Badges"put fld "Name" into hisNamerepeat with i = 1 to the number of lines in fld "MeritBadges"set cursor to busyget line i of fld "MeritBadges"if char 5 of it is not " " thenput word 3 of line i of fld "MeritBadges" into theDateconvert theDate to dateItemsif item 2 of theDate = 1 thenput "a,JAN," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 2 thenput "b,FEB," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 3 thenput "c,MAR," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 4 thenput "d,APR," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 5 thenput "e,MAY," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 6 thenput "f,JUN," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 7 thenput "g,JUL," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 8 thenput "h,AUG," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 9 thenput "i,SEP," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 10 thenput "j,OCT," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 11 thenput "k,NOV," & item 1 of theDate & "," ¬& hisName & return after theDate2else if item 2 of theDate = 12 thenput "l,DEC," & item 1 of theDate & "," ¬& hisName & return after theDate2end ifend ifend repeatgo next cdend repeatput empty into theDate1put SortFieldByItem(theDate2,1) into theDate2repeat with i = 1 to the number of lines in theDate2delete item 1 of line i of theDate2if line i of theDate2 is not in theDate1 thenput line i of theDate2 && strCount(line i of theDate2,theDate2) & ¬return after theDate1end ifnext repeatend repeatreturn theDate1end MBSummary-----------------------------------------------------------------------on textFileset lockMessages to truelock screenput newFileName("Select a destination:",Letter) into fileNameif fileName is empty or fileName is "Cancel" then exit textFileopen file fileNamego first card of bg "scouts"Write "Name" & tab & "Phone" & tab & "Parents" & tab & ¬"Address" & tab & "Rank" & tab & "Post" & tab & "Patrol" & tab & ¬"City" & tab & "State" & tab & "RankDate" & tab & ¬"EagleMBCount" & TAB & "MONEY" & tab & "attendance" & return ¬to file fileNamerepeat for the number of cards of bg "scouts"if fld "ActiveOrNot" is "Active" thenPut "Writing file - " & bkgnd field "Name"Write fld "Name" & tab & fld "Phone" & tab & ¬fld "Parents" & tab & fld "Address" & tab & fld "Rank" & ¬tab & fld "Post" & tab & fld "Patrol" & tab & ¬fld "city" & tab & fld "State" & tab & fld "RankDate" & ¬tab & fld "EagleMBCount" & TAB & fld "SUMMERCAMPFEE" & ¬tab & fld "attendance" & return to file fileNameend ifgo next cardend repeatgo cd "Members"close file fileNamehide message boxend textFile-----------------------------------------------------------------------on AllMBbyBoylock screenset lockMessages to trueput the number of lines in cd fld Members into pepCntif pepCnt is empty thensend mouseUp to bg btn "Update List"put the number of lines in cd fld Members into pepCntend ifput cd fld Members into memberListgo bg "Merit Badges"repeat with m = 1 to the number of cds in bg "Merit Badges"if fld name is in memberList thenput fld name && "has" && fld mbcountput return & fld name && "as of" && the short date && "has" && ¬fld MBcount & return after mbListput 1 into mbListCountrepeat with i = 1 to the number of lines in fld meritBadgesset cursor to busyget line i of fld meritBadgesif char 5 of it is not " " thendelete word 1 of itif mbListCount < 2 thenput it & "," after mbListingelseput it & "," & return after mbListingput 0 into mbListCountend ifadd 1 to mbListCountend ifend repeatput align(mbListing,"38,L","35,L") after mbListput empty into mbListingend ifgo next cdnext repeatend repeatgo cd stackInfoput empty into cd fld stackInfoput mbList & ¬return & "* indicates Eagle required" into cd fld stackInfohide msg boxend AllMBbyBoy-----------------------------------------------------------------------on getMBdates MB1global itsDateput empty into itsDatefind whole MB1 in fld "MeritBadges"do "get" && the foundLineif second word of it is not " " thenput third word of it into itsDateend ifclick at 56,39end getMBdates------------------------------------------------------------------------on getTheRestglobal theRestput 1 into xLineput empty into theRestput empty into theRest1put empty into theRest2repeat with i = 1 to the number of lines in fld "MeritBadges"if char 5 of line i of fld "MeritBadges" is not " " thenput line i of fld "MeritBadges" into line xLine of theRestdelete word 1 to 2 of line xLine of theRestput the number of words in line xLine of theRest into wrdCntput word 2 to wrdCnt of line xLine of theRest & tab & tab & ¬word 1 of line xLine of theRest into line xLine of theRest2add 1 to xLineend ifend repeatput empty into theRestput the number of lines in theRest2 into r2LCput the number of lines in theRest2 into r2lc2if r2LC is not empty thendivide r2lc2 by 2put round(r2lc2 + .01) into r2lc2repeat with i = 1 to r2lc2put line i of theRest2 into line i of theRest1end repeatrepeat with i = 1 to r2LC2put line i of theRest1 & tab & tab & line i + r2lc2 of theRest2 ¬into line i of theRestend repeatend ifend getTheRest------------------------------------------------------------------------on GetNextRankglobal rank,nextRank,MBcnt,SAcnt,nameHim,TIR,ScoutYears,Ageput empty into nextRankif rank is "Scout" thensend mouseUp to bg btn "TF"put tab & tab & tab & "Tenderfoot Requirements" ¬into line 1 of nextRankput space into line 2 of nextRankput tab & "1. 2 mos." & tab & fld "one" & tab & "4. Growth" & ¬tab & fld "four" into line 3 of nextRankput tab & "2. Spirit" & tab & fld "two" & tab ¬& "5. Prog. Rev." into line 4 of nextRankput tab & "3. S.A.s" & tab & SAcnt & "--" && "Citizenship: " && ¬fld "threeA" & "," && fld "threeB" & "," && ¬fld "threeBdate" into line 5 of nextRankelse if rank is "Tenderfoot" thensend mouseUp to bg btn "SC"put tab & tab & tab & "Second Class Requirements" ¬into line 1 of nextRankput space into line 2 of nextRankput tab & "1. 2 mos." & tab & fld "one" & tab & "4. Growth" & ¬tab & fld "four" into line 3 of nextRankput tab & "2. Spirit" & tab & fld "two" & tab ¬& "5. Prog. Rev." into line 4 of nextRankput tab & "3. S.A.s" & tab & SAcnt & "--" && "Hiking: " && ¬fld "threeA" & "," && fld "threeB" & "," && ¬fld "threeCdate" into line 5 of nextRankput tab & tab & "First Aid: " && fld "ThreeCdate" into line 6 ¬of nextRankelse if rank is "Second Class" thensend mouseUp to bg btn "FC"put tab & tab & tab & "First Class Requirements" ¬into line 1 of nextRankput space into line 2 of nextRankput tab & "1. 2 mos." & tab & fld "one" & tab & "4. Growth" & ¬tab & fld "four" into line 3 of nextRankput tab & "2. Spirit" & tab & fld "two" & tab ¬& "5. Prog. Rev." into line 4 of nextRankput tab & "3. S.A.s" & tab & SAcnt & "--" && "Camping: " && ¬fld "threeA" & "," && fld "threeB" & "," && ¬fld "threeCdate" into line 5 of nextRankput tab & tab & "Cooking: " && fld "ThreeCdate" into line 6 ¬of nextRankelse if rank is "First Class" thensend mouseUp to bg btn "ST"put tab & tab & tab & "Star Requirements" ¬into line 1 of nextRankput space into line 2 of nextRankput tab & "1. 4 mos." & tab & fld "one" & tab & "5. Lead." & ¬tab & fld "five" into line 3 of nextRankput tab & "2. Spirit" & tab & fld "two" & tab & "6. Conf." & ¬tab & fld "six" into line 4 of nextRankput tab & "3. M.B.s" & tab & MBcnt & "--" & fld "threeA" & "," && ¬fld "threeB" & "," && fld "threeC" & "," && ¬fld "threeD" & "," && fld "threeE" into line 5 of nextRankput tab & "4. Proj." & tab & fld "four" & tab & ¬"7. Prog. Rev." & tab & fld "seven" into line 6 of nextRankelse if rank is "Star" thensend mouseUp to bg btn "L"put tab & tab & tab & "Life Requirements" ¬into line 1 of nextRankput space into line 2 of nextRankput tab & "1. 6 mos." & tab & fld "one" & tab & "5. Lead." & ¬tab & fld "five" into line 3 of nextRankput tab & "2. Spirit" & tab & fld "two" & tab & "6. Conf." & ¬tab & fld "six" into line 4 of nextRankput tab & "3. M.B.s" & tab & MBcnt & "--" & fld "threeA" & "," && ¬fld "threeB" & "," && fld "threeC" & "," && ¬fld "threeD" & "," && fld "threeE" into line 5 of nextRankput tab & "4. Proj." & tab & fld "four" & tab & ¬"7. Prog. Rev." & tab & fld "seven" into line 6 of nextRankelse if rank is "Life" thensend mouseUp to bg btn "E"put tab & tab & tab & "Eagle Requirements" ¬into line 1 of nextRankput space into line 2 of nextRankput tab & "1. 6 mos." & tab & fld "one" & tab & "5. Lead." & tab & ¬fld "five" into line 3 of nextRankput tab & "2. Spirit" & tab & fld "two" & tab & "6. Growth" & tab & ¬fld "six" into line 4 of nextRankput tab & "3. M.B.s" & tab & MBcnt & "--" & ¬fld "threeA" & "," && fld "threeB" & "," && ¬fld "threeC" & "," && fld "threeD" & "," && ¬fld "threeE" into line 5 of nextRankput tab & tab & fld "threeF" & "," && fld "threeG" & "," && ¬fld "threeH" & "," && fld "threeI" & "," && fld "threeJ" ¬into line 6 of nextRankput tab & "4. Proj." & tab & fld "four" & tab & "7. Conf." & ¬tab & fld "seven" into line 7 of nextRankelse if rank is "Eagle" thensend mouseUp to bg btn "P"put tab & tab & tab & "Palms Earned" into line 1 of nextRankend ifend GetNextRank-----------------------------------------------------------------------on PhoneBooklock screenset lockMessages to trueput newFileName("Select a destination:","BSA Phone Book") into fileNameif fileName is empty or fileName is "Cancel" then exit PhoneBookopen file fileNameset cursor to 4go first card of bg "scouts"repeat for the number of cards of bg "scouts"Put "Writing file - " & bkgnd field "Name"Write second word of fld "Name" & tab & first word of fld ¬"Name" & tab & fld "Parents" & tab & ¬fld "Address" & tab & fld "City" & tab & first word of fld State & tab & ¬second word of fld State & tab & ¬fld "Birthdate" & tab & fld Rank && "on" && fld "RankDate" & tab & ¬fld "Post" & tab & fld "Patrol" & tab & ¬fld "Phone" & tab & fld "Phone 2" & tab & fld "DateJoined" & ¬return to file fileNamego next cardend repeatgo first cd of bg "Leaders"repeat for the number of cards in bg "Leaders"put "Writing Leader file - " & fld "Name"Write second word of fld "Name" & tab & ¬first word of fld "Name" & tab & tab & ¬fld "Address" & tab & ¬fld "City" && fld "State" & tab & ¬fld "Birthdate" & tab & tab & fld "Position" & tab & tab & ¬fld "Phone" & tab & fld "Phone 2" & tab & fld "DateJoined" & ¬return & return to file fileNamego next cardend repeatgo cd "Members"close file fileNamehide message boxend Phonebook-----------------------------------------------------------------------on compListglobal memNames,xset cursor to busylock screenset lockMessages to trueput empty into memNamesput the number of cds of bg "Scouts" into statCntput 1 into xgo first cd of bg "Scouts"repeat with i = 1 to statCntif fld "ActiveOrNot" is "Active" thenput "Listing - " & fld "Name"put fld "Parents" & return & "Parent(s) of " & fld "Name" &¬return & fld "Address" & Return & fld "City" & "," && ¬fld "State" & return & return ¬into line x of memNamesadd 6 to xend ifgo nextend repeatgo first cd of bg "Leaders"put the number of cds of bg "Leaders" into statCntrepeat with i = 1 to statCntif fld "ActiveOrNot" is "Active" thenput "Listing - " & fld "Name"put " " & return & fld "Name" & return & fld "Address" ¬& return & fld "city" & "," && fld "State" & return &¬return into line x of memNamesadd 6 to xend ifgo nextend repeatgo cd "Members"put memNames into cd fld "Members"put statCnt && "Scouts Listed" into cd fld ListTitleHide msgend compList-----------------------------------------------------------------------on notActiveglobal XmemNames,Xxset cursor to busylock screenset lockMessages to trueput empty into XmemNamesput the number of cds of bg "Scouts" into statCntput 1 into Xxgo first cd of bg "Scouts"repeat with i = 1 to statCntif fld "ActiveOrNot" is "Not Active" thenput "Listing - " & fld "Name"put fld "Parents" & return & "Parent(s) of " & ¬fld "Name" & return & fld "Phone" & return & ¬fld "Address" & Return & fld "City" & "," && ¬fld "State" & return & return into line Xx of XmemNamesadd 6 to Xxend ifgo nextend repeatgo first cd of bg "Leaders"put the number of cds of bg "Leaders" into statCntrepeat with i = 1 to statCntif fld "ActiveOrNot" is "Not Active" thenput "Listing - " & fld "Name"put " " & return & fld "Name" & return & ¬fld "Address" & return & fld "city" & "," && ¬fld "State" & return & fld "Phone" & ¬return into line Xx of XmemNamesadd 6 to Xxend ifgo nextend repeatgo cd "Members"put XmemNames into cd fld "Members"put statCnt && "Scouts Listed" into cd fld ListTitleHide msgend notActive-----------------------------------------------------------------------on SPLreportrosterend SPLreport-----------------------------------------------------------------------on rosterlock screenset lockMessages to trueput "Troop Roster" & return & ¬cd fld "Troop Number" && " " && ¬the long date & return into titlego first card of bg "scouts"put "Scouts,Phone,Rank,Post,Patrol" & return & ¬"------,-----,-------,----,------" & return into fileNamerepeat for the number of cards of bg "scouts"if fld "ActiveOrNot" is "Active" thenPut "Writing file - " & bkgnd field "Name"put fld "Name" & "," & fld "Phone" & "," & ¬fld "Rank" & "," & fld post & "," & fld patrol & ¬return after fileNameend ifgo next cardend repeatput return & return & "Leaders,Phone,Position" & return & ¬"-------,-----,-------" & return after fileNamego first cd of bg "Leaders"repeat for the number of cards in bg "Leaders"if fld "ActiveOrNot" is "Active" thenput "Writing Leader file - " & fld "Name"put fld "Name" & "," & fld "Phone" & ¬"," & fld position & return ¬after fileNameend ifgo next cardend repeatgo cd "Stackinfo"put title & return into cd fld Stackinfoput Align(fileName,"17,Left,","10,c,","*,c","*,c") ¬after cd fld Stackinfohide message boxend roster-----------------------------------------------------------------------on awardsShoppingListlock screenset lockMessages to trueput cd fld "Troop Number" into trpNumput cd fld Defaults into defaultsListanswer "Include Service Stars?" with "Yes" or "No"put it into answerStarsask "Date awards are needed? i.e." && the short date ¬with the short dateif it is empty then exit awardsShoppingListif it is "Cancel" then exit awardsShoppingListput it into dteNeededput it into dNeededconvert dNeeded to seconds -- convert the needed date to secondsask "Date of last Court of Honor or shopping trip? i.e." && the short date ¬with line 4 of cd fld "Defaults"if it is empty then exit awardsShoppingListif it is "Cancel" then exit awardsShoppingListput it into sDateput it into startDateput the date into todayconvert startDate to seconds -- convert the date to seconds---------------- Rank ------------------go first cd of bg scoutsrepeat for the number of cds of bg scoutsset cursor to busyput fld "RankDate" into ckDateconvert ckDate to secondsif ckDate > startDate thenput fld Rank && "patches" & return & ¬fld Rank && "Mother pins" & return & ¬fld Rank && "Scout pins" & return after Badgesput bg fld name && "--" && fld Rank && ¬fld RankDate & return after earnedByend ifgo nextend repeat------------- Service Stars ----------------if answerStars is "Yes" thengo first marked cdrepeat for the number of marked cdsput dNeeded-startDate into timeSinceif timeSince > 28500000 and fld ScoutYears contains "Y" thenput green into colorif the short name of this bg contains "Leaders" thenput blue into colorend ifput color && word 1 of fld ScoutYears & ¬"ear star" & return after ServiceStarsput bg fld name && "--" && word 1 of fld ScoutYears & ¬"ear" && color && "star" && "from" && bg fld datejoined && " " & ¬bg fld ScoutYears & return after earnedByend ifgo next marked cdend repeatend if------------- Merit Badges ----------------go to first cd of bg "Merit Badges"set cursor to watchrepeat for the number of cds in bg "Merit Badges"put fld MeritBadges into MBsrepeat with i = 1 to the number of lines of MBsif char 5 of line i of MBs is " " thennext repeatelseput word 3 of line i of MBs into ckDateconvert ckDate to secondsif ckDate > startdate thenput the number of words of line i of MBs ¬into wdCntput word 4 to wdCnt of line i of MBs into mbNameput word 4 to wdCnt of line i of MBs & ¬return after MeritListput fld name && "--" && word 4 to wdCnt of line i of ¬MBs && word 3 of line i of MBs & ¬return after earnedByend ifnext repeatend ifend repeatgo nextend repeat------------- Palms ---------------go to first cd of bg "Palms"put "36,63,91,45,72,101,54,81,111" into palmDatesput the number of the last cd in bg "Palms" into lastCdrepeat until thisCd = lastCdput the number of this cd into thisCdif bg fld id 36 is empty thengo nextnext repeatelserepeat with j = 1 to 9if fld id item j of palmDates is empty thenexit repeatelseput fld id item j of palmDates into ckDateconvert ckDate to secondsif ckDate > startdate thenif j = 1 or j = 4 or j = 7 thenput "Bronze" & return after palmListput fld name && "--" && "Bronze Palm" && ¬fld id item j of palmDates & return after earnedByelse if j = 2 or j = 5 or j = 8 thenput "Gold" & return after palmListput fld name && "--" && "Gold Palm" && ¬fld id item j of palmDates & return after earnedByelse ¬put "Silver" & return after palmListput fld name && "--" && "Silver Palm" && ¬fld id item j of palmDates & return after earnedByend ifnext repeatend ifend repeatgo nextend ifgo nextend repeatgo to cd stackInfoput empty into MeritList2put empty into Badges2put empty into PalmList2put SortFieldByItem(MeritList,1) into MeritListput 0 into badgeTotCntput 0 into MbadgeTotCntput 0 into palmTotCntrepeat with i = 1 to the number of lines in MeritListif line i of MeritList is not in MeritList2 thenadd strCount(line i of MeritList,MeritList) to MbadgeTotCntput strCount(line i of MeritList,MeritList) && line i of MeritList & ¬return after MeritList2end ifend repeatrepeat with i = 1 to the number of lines in Badgesif line i of Badges is not in Badges2 thenadd strCount(line i of Badges,Badges) to badgeTotCntput strCount(line i of Badges,Badges) && line i of Badges & ¬return after Badges2end ifend repeatrepeat with i = 1 to the number of lines in palmListif line i of palmList is not in palmList2 thenadd strCount(line i of palmList,palmList) to palmTotCntput strCount(line i of palmList,palmList) && line i of palmList & ¬return after palmList2end ifend repeatif "palmList" is in palmList2 thenput "No palms" & return into palmList2put 0 into palmtotcntend ifrepeat with i = 1 to the number of lines in ServiceStarsif line i of ServiceStars is not in starList thenput strCount(line i of ServiceStars,ServiceStars) && line i of ¬ServiceStars & return after starListend ifend repeatif answerStars is "No" thenput "Not requested" & return into starListend ifsort earnedByput empty into cd fld stackInfoput "Award Supply List" && "from:" && sDate && "to" && dteNeeded && ¬return & "==========================================" & return & ¬"Badges" & return & "------" & return & Badges2 & ¬"----------" & return & badgeTotCnt && "Total Rank Badges" & return & ¬return & "Merit Badges" & return & "------------" & return & ¬MeritList2 & "----------" & return & ¬MbadgeTotCnt && "Total Merit Badges" & return & return & ¬"Palms" & return & "-----" & return & ¬palmList2 & "----------" & return & palmTotCnt && "Total Palms" & ¬return & return & "Service Stars" & return & "-------------" & ¬return & starList & "----------" & return & return & return & ¬"Advancement Report," && trpNum & return & ¬line 5 of defaultsList & return & ¬line 6 of defaultsList & "," && ¬line 7 of defaultsList & return & ¬"------------------------------------------" & return & earnedBy ¬into cd fld stackinfoend awardsShoppingList-----------------------------------------------------------------------on HonorCampinglock screenset lockMessages to trueput "Honor Camping Report" & return & ¬cd fld "Troop Number" && " " && ¬the long date & return into titlego first card of bg "scouts"put "Scouts,Rank,Joined,Years,DOB,Age,MOS,OA,Meet,Activ.,Total" & return & ¬"------,-----,----,----,------,-----,----,----,------,----,------" & ¬return into fileNamerepeat for the number of cards of bg "scouts"if fld "ActiveOrNot" is "Active" thenPut "Writing file - " & bkgnd field "Name"put fld "Name" & "," & fld "Scout Rank" & "," & ¬fld "DateJoined" & "," & fld "ScoutYears" & "," & ¬fld "Birthdate" & "," & fld "Age" & "," & ¬fld "MosRank" & "," & fld "OaRank" & "," & ¬word 2 of fld "MeetAttnd" & "," & ¬word 2 of fld "ActivityAttnd" & "," & ¬word 2 of fld "Attendance" & ¬return after fileNameend ifgo next cardend repeatgo cd "Stackinfo"put title & return into cd fld Stackinfoput Align(fileName,"15,L,|","10,C,|","10,C,|","12,C,|","10,C,|","4,L,|","5,L,|","5,L,|","5,C,|","5,C,|","5,C") ¬after cd fld Stackinfohide message boxend HonorCamping</script>
